home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / MATHS / ARCAUT / Automatons / TM-Gas < prev    next >
Text File  |  1991-07-27  |  515b  |  29 lines
  1. AUTOMATON*
  2.  
  3.   TM-Gas
  4.  
  5.   This is a Margolus neighbourhood gas simulation. The particles travel along
  6.   the horizontal & vertical; number & momentum are preserved in collisions.
  7.   Compare with 'HPP-Gas'.
  8.  
  9. INITIALISATION*
  10.  
  11.   10DEF PROCdo
  12.   20*SetEval wrap on
  13.   30*SetEval neig margolus
  14.   40*SetEval flag 4
  15.   50ENDPROC
  16.  
  17. SCREEN*
  18.  
  19.   10DEF PROCdo
  20.   20PROCsoup(255,1,.1)
  21.   30ENDPROC
  22.  
  23. CODE*
  24.  
  25. ( READ_NEIG
  26.   CELL OPP = IF (CW CCW = IF (CELL CW <> IF (CELL ==))) 
  27.    FLAG 0 <> IF (CW ==) CCW ==                          )
  28.  
  29. END*